Computer Select (Limited Edition)/Computer Select.iso/pcmag/v11n08/fontsi.smm

INI File | 1991-12-11 | 4KB | 607 lines

[ver]
    4
[sty]

[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    PostScript Printer
[lang]
    1
[desc]





    692481721
    1
    692481648
    1
    1
    0
    0
    0
    0






    0
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[tag]
    Body Text
    2
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Body Text
    0
    0
[tag]
    Body Single
    3
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Body Single
    0
    0
[tag]
    Bullet
    4
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        0
        288
        288
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0
        <*0>
        360
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Bullet
    0
    0
[tag]
    Bullet 1
    5
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        288
        288
        288
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0
        <*5>
        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Bullet 1
    0
    0
[tag]
    Number List
    6
    [fnt]
        TimesNewRomanPS
        240
        0
        49152
    [algn]
        1
        1
        360
        360
        360
    [spc]
        33
        273
        1
        0
        0
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0
        <*:>.
        360
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Number List
    0
    0
[tag]
    Subhead
    7
    [fnt]
        TimesNewRomanPS
        240
        0
        49155
    [algn]
        1
        1
        0
        0
        0
    [spc]
        33
        273
        1
        72
        72
        1
        100
    [brk]
        4
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        2

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Subhead
    0
    0
[tag]
    Title
    8
    [fnt]
        Arial MT
        360
        0
        16385
    [algn]
        4
        1
        0
        0
        0
    [spc]
        33
        446
        1
        144
        72
        1
        100
    [brk]
        16
    [line]
        8
        0
        1
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        1

        0
        1
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        2
        .
        ,
        $
    Title
    0
    0
[lay]
    Standard
    513
    [rght]
        15840
        12240
        1
        1440
        1440
        1
        1440
        1440
        0
        1
        0
        1
        0
        2
        1
        1440
        10800
        12
        1
        720
        1
        1440
        1
        2160
        1
        2880
        1
        3600
        1
        4320
        1
        5040
        1
        5760
        1
        6480
        1
        7200
        1
        7920
        1
        8640
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        12240
        1440
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        1
    [frmlay]
        1440
        12240
        1
        1440
        72
        1
        792
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        1
        3
        9360
    [txt]
>
    [frght]
    [lyfrm]
        1
        13248
        0
        14400
        12240
        15840
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        2
    [frmlay]
        15840
        12240
        1
        1440
        792
        1
        14472
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10800
        2
        2
        4680
        3
        9360
    [txt]

>
[elay]
[l1]
    0
[pg]
    1
    7 0 0 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
[edoc]
@Function@<:f240,2TimesNewRomanPS,0,0,0><:f240,2TimesNewRomanPS,0,0,0>FUNCTIO<:f>N FontSize()

defstr name, color, size, family                                            'Declare variables to use

GetCurFontInfo(&name, &color, &size, &family)              'Get current size in twips

Size =Query$("Enter New Font Size to Use:"<:f240,,>, <:f>size/20)       'Ask for new size

<-!>FontPointSizeChange(Size)                                                  'Change current font size

@Function@END FUNCTION

@Function@
>

[Embedded]
00004247
>
[macsum] 1
FontSize 0 0 5 0
[macse]
14 FontSize
0 804 &1 &2 &3 &4
6 3
5 20
4 1
0 1 "Enter New Font Size to Use:" [X]
13
8 3
2 279 1 "{3}"
6 0
15
9
00004272